820 RESTORE : READ NN: FOR J = 1 TO NN: READ A$,H%,V%,LN%,MN%,P%:Z$ = IT$(J): GOSUB 113: NEXT
825 REM ******THIS IS THE CORRECTION SECTION
830 SW = 4: GOSUB 118
835 GOSUB 125: IF A$ = "Y" THEN GOSUB 127: GOTO 820
840 SW = 0: GOTO 1005
900 HOME : NORMAL : PRINT "BYE!": END
1000 B$ = CHR$(7): DIM IT$(30): REM B$ IS BELL PROMPT, IT$ IS MY DUMMY FOR YOUR DATA COLLECTION VARIABLE
1005 TEXT : HOME : PRINT "DEMO SCREEN SUBROUTINES. ENTER:": PRINT
1010 HTAB 5: PRINT "1 TO DO LINE BY LINE ENTRY": PRINT : HTAB 5: PRINT "2 TO SEE 'EMPTY' SCREEN": PRINT : HTAB 5: PRINT "3 TO DO 'FULL SCREEN' ENTRY": PRINT : HTAB 5: PRINT "4 TO 'VIEW-CHANGE' DATA": PRINT : HTAB 5: PRINT "5 TO QUIT"
1015 HTAB 1: VTAB 23: INVERSE : PRINT "WHICH?";: GET A$: NORMAL :JB = VAL(A$): IF JB <1 OR JB >5 THEN PRINT B$;: GOTO 1015
1020 ON JB GOTO 500,600,700,800,900
1025 DATA 15,DATE(MM/DD/YR),1,3,-8,8,18,ITEM#,1,5,-6,6,-11,DESC.,1,6,18,1,11,BUY.PRICE,-1,7,-9,3,-11,#ON.HAND,1,8,-4,1,-11,LOWEST.LIMIT,20,8,-4,1,-34,COMPANY,1,12,20,1,10,ATTN,1,13,20,0,10,ADDRESS1,1,14,25,0,10,ADDRESS2,1,15,25,0,10
1030 DATA CITY,1,16,15,2,10,STATE,1,17,2,2,10,ZIP,20,17,-5,5,-24,PHONE,1,19,-12,8,-10,COMMENT,1,20,68,0,10